home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / util / wb / tv-prog.lha / tvprogram / Install_TV < prev    next >
Text File  |  2000-09-09  |  12KB  |  594 lines
  1. ; Skrypt instalacyjny dla programu TV (2000)
  2. ;
  3. ;    $VER: Install_TV v0.9 by ZATOR (09.09.2000)
  4. ;
  5. ; 
  6.  
  7. (if (>= @installer-version 2883594)
  8. (
  9. (effect "lower_right" "radial" $FFEE00 $EE00)
  10. ))
  11.  
  12. (set #ver_comm (/ (getversion "libs:commodities.library") 65536))
  13. (set #ver_icon (getversion "icon.library" (resident)))
  14. (set #ver_icon (/ #ver_icon 65536))
  15. (set #ver_work (getversion "workbench.library" (resident)))
  16. (set #ver_work (/ #ver_work 65536))
  17. (set #ver_dops (/ (getversion "libs:muimaster.library") 65536))
  18.  
  19. (set wybr
  20.     (askchoice
  21.         (prompt "Jëzyk/Jazyk/Sprache/Language")
  22.         (help @askchoice-help)
  23.         (choices "POLSKI" "ÇEÎTINA" "DEUTSCH")
  24.         (default 0)
  25.     )
  26. )
  27. (if (= wybr 0)
  28. (
  29. (set #witam "Witam w programie instalacyjnym programu\nTV\nDziëki temu skryptowi zainstalujesz oraz skonfigurujesz program")
  30. (set #info ("\nWersje (zainstalowanych u ciebie) wymaganych bibliotek:\n\nmuimaster.library - %ld [19^]\ncommodities.library - %ld\n icon.library - %ld\n\n" #ver_dops #ver_comm #ver_icon))
  31. (set #gdzie "Gdzie zainstalowaê program? \n\ (katalog zostanie stworzony)")
  32. (set #help_gdzie "Wybierasz miejsce, gdzie ma zostaê zainstalowany program TV")
  33. (set #kopiuj_wb "Gdzie skopiowaê program TV?")
  34. (set #help_wb "Wybierasz miejsce, gdzie ma zostaê skopiowany program")
  35. (set #kopiuj_wb1 "Gdzie skopiowaê dokumentacje?")
  36. (set #help_wb1 "Wybierasz miejsce, gdzie ma zostaê skopiowana dokumentacja")
  37. (set #kopiuj_wb2 "Gdzie skopiowaê skrypty arexxa?")
  38. (set #help_wb2 "Wybierasz miejsce, gdzie majâ zostaê skopiowane skrypty aRexx'a")
  39. (set #kopiuj_wb31 "Gdzie skopiowaê moduîy?")
  40. (set #help_wb31 "Wybierasz miejsce, gdzie majâ zostaê skopiowane moduîy\n\ niezbëdne do ôciagania programów telewizyjnych!")
  41. (set #import_prompt "Z jakiego modulu chcesz korzystac?")
  42. (set #kopiuj_wb3 "Gdzie skopiowac niezbëdne pliki?")
  43. (set #help_wb3 "wybierasz miejsce gdzie majâ zostaê skopiowane niezbëdne pliki")
  44.  
  45. (set #kopiuj_modul "import/html-tm-online.tv")
  46. (set #kopiuj_pref "prefs/html-tm-online.pref")
  47.  
  48.  
  49. (set #dodaj "Czy mogë dodaê jednâ linie do user-startup?")
  50. (set #dodaj_help "Dodam linijke: Assign TVprog: xxx")
  51. (set #dodaje_tt "TOOLTYPE")
  52.  
  53. (set #info_jak "Jaki sposób instalacji wybierasz?")
  54. (set #info_jak_help "Wybierasz tutaj czy chcesz dokonaê peînej instalacji czy tylko zaktualizowaê program")
  55. (set #info_but0 "Instalacja")
  56. (set #info_but1 "Aktualizacja")
  57.  
  58. (set #stworzyc "Skrypt instalacyjny stworzy katalog nazwany 'TV-prog' dla programu TV.  Jesli chcesz zmieniê nazwe tego katalogu, wpisz nowâ nazwe poniûej.")
  59.  
  60. ))
  61.  
  62. (if (= wybr 1)
  63. (
  64. (set #dodaj "Mohu pêidat jeden êádek do user-startup?")
  65. (set #dodaj_help "Pêidat êádek do user-startup  Assign TVprog: xxx ")
  66. (set #dodaje_tt "TOOLTYPE")
  67.  
  68. (set #kopiuj_modul "import/html-cz-online.tv")
  69. (set #kopiuj_pref "prefs/html-cz-online.pref")
  70.  
  71. (set #witam "Vitá Vás instalaçní program \nTV programu\nDíky tomuto skriptu si mûùete nainstalovat a nakonfigurovat program")
  72. (set #info ("\nVerze (uù nainstalovaných) poùadovaných knihoven:\n\nmuimaster.library - %ld [19^]\ncommodities.library - %ld\n icon.library - %ld\n\n" #ver_dops #ver_comm #ver_icon))
  73. (set #gdzie "Kam chcete nainstalovat program? \n\ (adresáê bude vytvoêen)")
  74. (set #help_gdzie "Volíte si místo, kde má byt nainstalován TV program")
  75. (set #kopiuj_wb "Kam zkopírovat TV program?")
  76. (set #help_wb "Volíte si místo, kam má být zkopírován program")
  77. (set #kopiuj_wb1 "Kam zkopírovat dokumentaci?")
  78. (set #help_wb1 "Volíte si místo, kam mají být zkopírované dokumentace")
  79. (set #kopiuj_wb2 "Kam zkopírovat arexxové skripty?")
  80. (set #help_wb2 "Volíte si místo, kam mají být zkopírované arexxové skripty")
  81. (set #import_prompt "Kam zkopírovat moduly?")
  82. (set #kopiuj_wb31 "Volíte si místo, kam mají být zkopírované moduly\n\potêebné pro stahovaní televizních programû!")
  83. (set #help_wb31 "Které moduly chcete pouùívat?")
  84. (set #kopiuj_wb3 "Kam zkopírovat poùadované soubory?")
  85. (set #help_wb3 "Volíte si místo, kam mají být zkopírované poùadované soubory")
  86.  
  87. (set #info_jak "Jaký si zvolíî zpûsob instalace?")
  88. (set #info_jak_help "Zvolíî si zde, zda chceî plnou instalaci nebo jenom aktualizovat program")
  89. (set #info_but0 "Instalace")
  90. (set #info_but1 "Aktualizace")
  91.  
  92. (set #stworzyc "This installation will create a drawer named `TV-prog' for the TV software.  If you would like to change the name of this drawer, type the new name below.")
  93.  
  94.  
  95. ))
  96.  
  97. (if (= wybr 2)
  98. (
  99.  
  100. (set #witam "Willkommen zum Installationsprogramm\nTV\nDank diesem Skript werden Sie das Programm installieren und konfigurieren")
  101. (set #info ("\nVersionen die bei Ihnen installierten Libraries, die benötigt werden\n\nmuimaster.library - %ld [19^]\ncommodities.library - %ld\n icon.library - %ld\n\n" #ver_dops #ver_comm #ver_icon))
  102. (set #gdzie "Wo möchten Sie installieren? \n\ (das Verzeichnis wird erstellt)")
  103. (set #help_gdzie "Sie wählen, wo der TV-Programm installiert wird")
  104. (set #kopiuj_wb "Wo soll der TV-Programm kopiert werden?")
  105. (set #help_wb "Sie wählen, wo der Programm kopiert werden soll")
  106. (set #kopiuj_wb1 "Wo soll die Dokumentation kopiert werden?")
  107. (set #help_wb1 "Sie wählen, wo die Dokumentation kopiert werden soll")
  108. (set #kopiuj_wb2 "Wo sollen die aRexx-Skripte kopiert werden?")
  109. (set #help_wb2 "Sie wählen wo die aRexx-Skripte kopiert werden sollen")
  110. (set #kopiuj_wb31 "Wo kopieren die Module?")
  111. (set #help_wb31 "Sie wählen wo die Module kopiert werden,\n\ die zum Laden der Tv-Programmen benötigt werden!")
  112. (set #import_prompt "Welches Modul möchten Sie benutzen?")
  113. (set #kopiuj_wb3 "Wo kopieren die benötigten Dateien?")
  114. (set #help_wb3 "Sie wählen wo die benötigte Dateien kopiert werden sollen")
  115. (set #dodaj "Darf ich eine Zeile zur user-startup zuschreiben?" )
  116. (set #dodaj_help "Die Zeile: Assign TVprog: xxx")
  117. (set #info_jak "Welche Installation wählen Sie?")
  118. (set #info_jak_help "Hier wählen Sie, ob Sie volle Installation oder nur die Programmsaktualisierung möchten")
  119. (set #info_but0 "Installation")
  120. (set #info_but1 "Aktualisierung")
  121.  
  122. (set #kopiuj_modul "import/html-tm-online.tv")
  123. (set #kopiuj_pref "prefs/html-tm-online.pref")
  124.  
  125.  
  126. (set #stworzyc "This installation will create a drawer named `TV-prog' for the TV software.  If you would like to change the name of this drawer, type the new name below.")
  127.  
  128.  
  129. ))
  130.  
  131. (welcome #witam)
  132.  
  133.  
  134.  
  135. (if (>= @installer-version 2883594)
  136. (
  137. (showmedia 'media' 'Docs/AFD-COPYRIGHT' 'upper_right' 'medium' 1 'wordwrap')
  138. ))
  139.  
  140. (message #info)
  141.  
  142. (if (>= @installer-version 2883594)
  143. (
  144. (closemedia media)
  145. ))
  146.  
  147. (if (>= @installer-version 2883594)
  148. (
  149. (showmedia 'pics' 'Docs/pics/okno.iff' 'upper_left' 'none' 1)
  150. ))
  151.  
  152. (set sposob
  153.     (askchoice
  154.         (prompt #info_jak)
  155.         (help #info_jak_help)
  156.         (choices #info_but0 #info_but1)
  157.         (default 0)
  158.     )
  159. )
  160.  
  161.  
  162.  
  163.  
  164.  
  165. (if (>= @installer-version 2883594)
  166. (
  167. (closemedia pics)
  168. ))
  169.  
  170.  
  171. (if (= sposob 0)
  172. (
  173.  
  174.  
  175.  
  176.  
  177. (set #wyb1
  178.     (askdir
  179.         (prompt #gdzie)
  180.         (default "SYS:")
  181.         (help #help_gdzie)
  182.         (disk)
  183.     )
  184. )
  185.  
  186. (complete 5)
  187.  
  188. (set #drawername "TV-prog")
  189.  
  190. (if (> @user-level 1)
  191.                (set #drawername
  192.                   (askstring
  193.                  (prompt #stworzyc)
  194.                  (help @askstring-help)
  195.                  (default "TV-prog")
  196.                   )
  197.                )
  198.             )
  199.  
  200. (set #wyb2 (tackon #wyb1 #drawername))
  201. (set #wyb3 (tackon #wyb2 "data"))
  202. (set #wyb4 (tackon #wyb2 "data_p"))
  203. (set #wyb5 (tackon #wyb2 "notatnik"))
  204. (set #wyb6 (tackon #wyb2 "Docs"))
  205. (set #wyb7 (tackon #wyb2 "import"))
  206. (set #wyb8 (tackon #wyb2 "export"))
  207. (set #wyb9 (tackon #wyb2 "rexx"))
  208. (set #wyb0 (tackon #wyb2 "catalogs"))
  209. (set #wya0 (tackon #wyb2 "plugins"))
  210. (set #wyz5 (tackon #wyb2 "prefs"))
  211.  
  212.  
  213. (makedir #wya0)
  214. (makedir #wyb2 (infos))
  215. (makedir #wyb3)
  216. (makedir #wyb4)
  217. (makedir #wyb5)
  218. (makedir #wyb6 (infos))
  219. (makedir #wyb7)
  220. (makedir #wyb8)
  221. (makedir #wyb9)
  222. (makedir #wyb0)
  223. (makedir #wyz5)
  224.  
  225. (if (=(exists "tv.ext" (noreq)) 1)
  226. (
  227.  
  228. (if (>= @installer-version 2883594)
  229. (
  230. (showmedia 'pics' 'Docs/pics/aktualizacja.iff' 'upper_left' 'none' 1)
  231. ))
  232.  
  233.  
  234.  
  235.  
  236. (if (= wybr 0)
  237. (
  238. (set importk
  239.     (askoptions
  240.         (prompt #import_prompt)
  241.         (help @askoptions-help)
  242.         (choices "TeleMagazyn (112 programów, szybki transfer)" "WirtualnaPolska (114 programów, ôredni transfer)")
  243.         (default 0)
  244.     )
  245. )
  246.  
  247. (if (BITAND importk %1)
  248. (
  249. (set #kopiuj_modul "import/html-tm-online.tv")
  250.  
  251. (set #wb_sel3
  252. (copyfiles
  253.     (prompt #kopiuj_wb31)
  254.     (source "prefs/html-tm-online.pref")
  255.     (dest #wyz5)
  256.     (infos)
  257.     (help #help_wb31)
  258. )
  259. )
  260. (set #wb_sel3a
  261. (copyfiles
  262.     (prompt #kopiuj_wb31)
  263.     (source #kopiuj_modul)
  264.     (dest #wyb7)
  265.     (infos)
  266.     (help #help_wb31)
  267. )
  268. )
  269.  
  270.  
  271.  
  272. ))
  273.  
  274. (if (BITAND importk %10)
  275. (
  276. (set #kopiuj_modul "import/html-wp-online.tv")
  277.  
  278. (set #wb_sel3
  279. (copyfiles
  280.     (prompt #kopiuj_wb31)
  281.     (source #kopiuj_modul)
  282.     (dest #wyb7)
  283.     (infos)
  284.     (help #help_wb31)
  285. )
  286. )
  287.  
  288. (set #wb_sel3z
  289. (copyfiles
  290.     (prompt #kopiuj_wb31)
  291.     (source "prefs/html-wp-online.pref")
  292.     (dest #wyz5)
  293.     (infos)
  294.     (help #help_wb31)
  295. )
  296. )
  297.  
  298. ))
  299. )
  300.  
  301. (if (>= @installer-version 2883594)
  302. (
  303. (closemedia pics)
  304. )))
  305.  
  306. ))
  307.  
  308.  
  309. (complete 10)
  310.  
  311. (if (=(exists "Pref" (noreq)) 1)
  312.  
  313. (set #wb_pref
  314. (copyfiles
  315.     (prompt #kopiuj_wb)
  316.     (source "pref")
  317.     (dest #wyb2)
  318.     (infos)
  319.     (help #help_wb3)
  320. )
  321. )
  322.  
  323.  
  324. )
  325.  
  326. (set #wb_sel
  327. (copyfiles
  328.     (prompt #kopiuj_wb)
  329.     (source "TV")
  330.     (dest #wyb2)
  331.     (infos)
  332.     (help #help_wb)
  333. )
  334. )
  335.  
  336. (complete 20)
  337.  
  338. (set #wb_sel1
  339. (copyfiles
  340.     (prompt #kopiuj_wb1)
  341.     (source "Docs")
  342.     (dest #wyb6)
  343.     (all)
  344.     (help #help_wb1)
  345. )
  346. )
  347.  
  348. (complete 40)
  349.  
  350. (set #wb_sel2
  351. (copyfiles
  352.     (prompt #kopiuj_wb2)
  353.     (source "rexx")
  354.     (dest #wyb9)
  355.     (all)
  356.     (help #help_wb2)
  357. )
  358. )
  359.  
  360. (complete 55)
  361.  
  362. (set #wb_sel3
  363. (copyfiles
  364.     (prompt #kopiuj_wb31)
  365.     (source #kopiuj_modul)
  366.     (dest #wyb7)
  367.     (infos)
  368.     (help #help_wb31)
  369. )
  370. )
  371.  
  372. (set #wb_sel3x
  373. (copyfiles
  374.     (prompt #kopiuj_wb31)
  375.     (source #kopiuj_pref)
  376.     (dest #wyz5)
  377.     (infos)
  378.     (help #help_wb31)
  379. )
  380. )
  381.  
  382.  
  383. (complete 60)
  384.  
  385.  
  386. (complete 65)
  387.  
  388. (set #wb_sel5
  389. (copyfiles
  390.     (prompt #kopiuj_wb3)
  391.     (source "NUMERACJA.pref")
  392.     (dest #wyb2)
  393.     (infos)
  394.     (help #help_wb3)
  395. )
  396. )
  397.  
  398. (complete 70)
  399.  
  400. (set #wb_sel6
  401. (copyfiles
  402.     (prompt #kopiuj_wb3)
  403.     (source "ROK.pref")
  404.     (dest #wyb2)
  405.     (infos)
  406.     (help #help_wb3)
  407. )
  408. )
  409.  
  410. (complete 75)
  411.  
  412. (set #wb_sel7
  413. (copyfiles
  414.     (prompt #kopiuj_wb3)
  415.     (source "catalogs")
  416.     (dest #wyb0)
  417.     (all)
  418.     (help #help_wb3)
  419. )
  420. )
  421.  
  422. (complete 90)
  423.  
  424. (if (=(exists "tv.ext" (noreq)) 1)
  425.  
  426. (set #wb_sel8
  427. (copyfiles
  428.     (prompt #kopiuj_wb3)
  429.     (source "tv.ext")
  430.     (dest #wyb2)
  431.     (help #help_wb3)
  432. )
  433. )
  434.  
  435. )
  436.  
  437. (complete 95)
  438.  
  439. (set #komenda "Assign TVprog: ")
  440.  
  441. (set #komenda1 (cat #komenda #wyb2))
  442.  
  443. (startup "TV-PROGRAM"
  444.     (prompt #dodaj)
  445.     (command #komenda1)
  446.     (help #dodaj_help)
  447. )
  448.  
  449. (makeassign "TVprog" #wyb2)
  450.  
  451. (if (=(exists "libs:mui/betterbalance.mcc" (noreq)) 1)
  452.  
  453. (tooltype
  454.     (prompt #dodaje_tt)
  455.     (help #dodaje_tt)
  456.     (dest "tvprog:tv")
  457.     (settooltype "TV_BETTERBALANCE" "ON")
  458.  
  459. )
  460. (
  461. (tooltype
  462.     (prompt #dodaje_tt)
  463.     (help #dodaje_tt)
  464.     (dest "tvprog:tv")
  465.     (settooltype "TV_BETTERBALANCE" "OFF")
  466.  
  467. )
  468. )
  469.  
  470. )
  471.  
  472. (if (=(exists "libs:mui/tearoff.mcp" (noreq)) 1)
  473.  
  474. (tooltype
  475.     (prompt #dodaje_tt)
  476.     (help #dodaje_tt)
  477.     (dest "tvprog:tv")
  478.     (settooltype "TV_TEAROFF" "ON")
  479.  
  480. )
  481. (
  482. (tooltype
  483.     (prompt #dodaje_tt)
  484.     (help #dodaje_tt)
  485.     (dest "tvprog:tv")
  486.     (settooltype "TV_TEAROFF" "OFF")
  487.  
  488. )
  489. )
  490.  
  491. )
  492.  
  493. (complete 100)
  494. )
  495. )
  496.  
  497.  
  498. (if (= sposob 1)
  499. (
  500.  
  501. (set #wb_sel
  502. (copyfiles
  503.     (prompt #kopiuj_wb)
  504.     (source "TV")
  505.     (dest "Tvprog:")
  506.     (help #help_wb)
  507. )
  508. )
  509.  
  510. (complete 10)
  511.  
  512. (set #wb_sel1
  513. (copyfiles
  514.     (prompt #kopiuj_wb1)
  515.     (source "Docs")
  516.     (dest "tvprog:docs/")
  517.     (all)
  518.     (help #help_wb1)
  519. )
  520. )
  521.  
  522. (complete 30)
  523.  
  524. (set #wb_sel7
  525. (copyfiles
  526.     (prompt #kopiuj_wb3)
  527.     (source "catalogs")
  528.     (dest "tvprog:catalogs/")
  529.     (all)
  530.     (help #help_wb3)
  531. )
  532. )
  533.  
  534. (complete 50)
  535.  
  536. (if (=(exists "tvprog:Pref" (noreq)) 1)
  537. (
  538. (set #wb_sel
  539. (copyfiles
  540.     (prompt #kopiuj_wb3)
  541.     (source "Pref")
  542.     (dest "Tvprog:")
  543.     (help #help_wb3)
  544. )
  545. )
  546. ))
  547.  
  548. (complete 60)
  549.  
  550. (if (=(exists "tvprog:import/html-tm-online.tv" (noreq)) 1)
  551. (
  552. (set #wb_sel
  553. (copyfiles
  554.     (prompt #kopiuj_wb3)
  555.     (source "import/html-tm-online.tv")
  556.     (dest "Tvprog:import/")
  557.     (help #help_wb3)
  558. )
  559. )
  560. ))
  561.  
  562. (complete 70)
  563.  
  564. (if (=(exists "tvprog:import/html-wp-online.tv" (noreq)) 1)
  565. (
  566. (set #wb_sel
  567. (copyfiles
  568.     (prompt #kopiuj_wb3)
  569.     (source "import/html-wp-online.tv")
  570.     (dest "Tvprog:import/")
  571.     (help #help_wb3)
  572. )
  573. )
  574. ))
  575.  
  576. (complete 80)
  577.  
  578. (if (=(exists "tvprog:import/html-cz-online.tv" (noreq)) 1)
  579. (
  580. (set #wb_sel
  581. (copyfiles
  582.     (prompt #kopiuj_wb3)
  583.     (source "import/html-cz-online.tv")
  584.     (dest "Tvprog:import/")
  585.     (help #help_wb3)
  586. )
  587. )
  588.  
  589. (complete 100)
  590.  
  591. ))
  592.  
  593.  
  594. ))